with Ada.Text_IO, Ada.Float_Text_IO;

package body Zapatos is
	procedure Init(This: in out Zapato; Numero:Natural; Direccion:Str100.Bounded_String; TiempoEst:Float) is
	begin
		This.Numero := Numero;
		This.Direccion := Direccion;
		This.TiempoEst := TiempoEst;
	end Init;

	function Numero(This: Zapato) return Natural is
	begin
		return this.Numero;
	end Numero;

	function TiempoEstimado(This: Zapato) return Float is
	begin
			return this.TiempoEst;
	end TiempoEstimado;

end Zapatos;

